home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / samples / shootemup / includes / cloudfx.h next >
Encoding:
Text File  |  2002-04-10  |  1.1 KB  |  53 lines
  1. ;
  2. ; Cloud Effect Subject To Removal due to lack of functional ALPHA/Tranparency in
  3. ; BB2D. may prohibit/hide it under a keycode.
  4. ;
  5.  
  6. Global depth=8,mve
  7.  
  8. Dim clouds(depth),clouds_speed(depth),clouds_pos(depth),clouds_size(depth) 
  9.  
  10. ;
  11. ; Cloud FX
  12. ;
  13. Function cloudfx_bottomlayer()
  14.  
  15.     For cn=0 To depth/2
  16.         clouds_pos(cn)=clouds_pos(cn)+clouds_speed(cn)
  17.         DrawImage cloud_fximg,clouds(cn)+offsetmapx/2,-128+clouds_pos(cn),clouds_size(cn)
  18.         If clouds_pos(cn)>700
  19.             clouds_pos(cn)=0
  20.             clouds_speed(cn)=Rnd(3,7)
  21.             clouds(cn)=Rnd(-176,816)
  22.             clouds_size(cn)=Rnd(0,4)
  23.         EndIf
  24.     Next
  25.  
  26. End Function
  27.  
  28. Function cloudfx_toplayer()
  29.  
  30.     For cn=depth/2+1 To depth
  31.         clouds_pos(cn)=clouds_pos(cn)+clouds_speed(cn)
  32.         DrawImage cloud_fximg,clouds(cn)+offsetmapx/2,-128+clouds_pos(cn),clouds_size(cn)
  33.         If clouds_pos(cn)>700
  34.             clouds_pos(cn)=0
  35.             clouds_speed(cn)=Rnd(3,7)
  36.             clouds(cn)=Rnd(-176,816)
  37.             clouds_size(cn)=Rnd(0,4)
  38.         EndIf
  39.     Next
  40.  
  41. End Function
  42.  
  43.  
  44. ;
  45. ;init cloud
  46. ;
  47. Function init_clouds()
  48.     For cn=0 To depth
  49.         clouds_speed(cn)=Rnd(3,7)
  50.         clouds(cn)=Rnd(-176,816)
  51.         clouds_size(cn)=Rnd(0,4)
  52.     Next
  53. End Function